#!/usr/bin/tclsh

set reps 20
if {[llength $argv] > 0} {set reps [lindex $argv 0]}

for {set i 0} {$i < $reps} {incr i} {
    foreach prog {primes0 primes1 primes2 primes3 \
                      seq1 seq2 seq3 par1 par2 par3} {
        switch -glob $prog {
            primes* {set sizes {2000 3000 5000 7000 10000 15000 20000}}
            *1 - par3 {set sizes {2000 3000 5000 7000 10000 15000}}
            *2 - seq3 {set sizes {50000 100000 200000 500000 \
                                      1000000 2000000 5000000 10000000}}
            default {error "$prog not known"}
        }

        foreach i $sizes {
            catch {exec /usr/bin/time -f %U ./pipe $prog $i >/dev/null} t
            puts "$prog,$i,$t"
        }
    }
}
